home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / amisearchii / installation-français < prev    next >
Text File  |  1998-01-03  |  6KB  |  198 lines
  1. ;$VER:AmiSearch installation script
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Warning-Txt
  9. (cat "Attention !\n\n\n"
  10. "AmiSearch II.2 a besoin de MUI 3.8+ pour fonctionner.\n\n"
  11. "Sans MUI AmiSearch II.2 ne marchera pas...\n\n"
  12. ))
  13. (set #Path-Txt
  14. (cat "Choisissez le répertoire cible. Un tiroir AmiSearchII "
  15. "y sera crée."
  16. ))
  17. (set #Path-Help
  18. (cat "\nCette partie vous permet de choisir le répertoire où sera placé AmiSearchII.2. \n\n"
  19. "Si vous faites une mise à jour de la version II aucun répertoire ne sera créé.\n\n"
  20. "Un tiroir AmiSearchII y est crée, afin de permettre une meilleure gestion de vos index.\n\n"
  21. "Par défaut c'est Work:\n\n\n"
  22. ))
  23. (set #UpdateTxt
  24. (cat "Si vous faites une mise à jour d'AmiSearch II ou II.1 vers AmiSearch II.2 vous devriez\n"
  25. "choisir le répertoire qui contient celui d'AmiSearch II lorsque l'on vous demandera un\n"
  26. "répertoire cible. Les fichiers devant être mis à jour le seront automatiquement.\n\n"
  27. "Attention ! Copiez vos fichiers prologues si vous les avez modifiés\n"
  28. "sinon ils seront écrasés !\n\n"
  29. ))
  30.  
  31.  
  32. ; Main
  33.  
  34. (message #Warning-Txt)
  35. (message #UpdateTxt)
  36. (set target
  37. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  38. ))
  39. (set @default-dest (tackon target "AmiSearchII"))
  40. (if (= (exists (tackon target "AmiSearchII")) 0)
  41. (
  42. (makedir (tackon target "AmiSearchII")(infos))
  43. (makedir (tackon target "AmiSearchII/Docs") (infos))
  44. (makedir (tackon target "AmiSearchII/Gfx"))
  45. (makedir (tackon target "AmiSearchII/ArchiveScripts"))
  46. (makedir (tackon target "AmiSearchII/BaseScripts"))
  47. (makedir (tackon target "AmiSearchII/Databases"))
  48. (makedir (tackon target "AmiSearchII/Prologs"))
  49. ))
  50.  
  51. (copyfiles
  52. (prompt "Copie du logiciel")
  53. (help @copy-files-help)
  54. (source "AmiSearchII")
  55. (dest (tackon target "AmiSearchII"))
  56. (infos))
  57.  
  58. (if (= (exists (tackon target "AmiSearchII/AmiSearch2")) 1)
  59. (
  60. (delete (tackon target "AmiSearchII/AmiSearch2") force)
  61. (delete (tackon target "AmiSearchII/AmiSearch2.info") force)
  62. ))
  63.  
  64. (if (= (exists (tackon target "AmiSearchII/ArchiveScripts/AS2H")) 1)
  65. (
  66. (rename (tackon target "AmiSearchII/ArchiveScripts/AS2H") (tackon target "AmiSearchII/ArchiveScripts/AS2H.bak"))
  67. ))
  68. (copyfiles
  69. (prompt "Copie du script de gestion des archives (AS2H)")
  70. (help @copy-files-help)
  71. (source "ArchiveScripts/AS2H")
  72. (dest (tackon target "AmiSearchII/ArchiveScripts"))
  73. (infos))
  74.  
  75. (if (= (exists (tackon target "AmiSearchII/ArchiveScripts/AS2Audio")) 1)
  76. (
  77. (rename (tackon target "AmiSearchII/ArchiveScripts/AS2Audio") (tackon target "AmiSearchII/ArchiveScripts/AS2Audio.bak"))
  78. ))
  79. (copyfiles
  80. (prompt "Copie du script de gestion des modules (AS2Audio)")
  81. (help @copy-files-help)
  82. (source "ArchiveScripts/AS2Audio")
  83. (dest (tackon target "AmiSearchII/ArchiveScripts"))
  84. (infos))
  85.  
  86. (copyfiles
  87. (prompt "Copie du script de gestion des archives DMS (DMS2Disk)")
  88. (help @copy-files-help)
  89. (source "ArchiveScripts/DMS2Disk")
  90. (dest (tackon target "AmiSearchII/ArchiveScripts"))
  91. (infos))
  92.  
  93. (copyfiles
  94. (prompt "Copie des images")
  95. (help @copy-files-help)
  96. (source "Gfx")
  97. (dest (tackon target "AmiSearchII/Gfx"))
  98. (pattern "#?")
  99. (infos))
  100.  
  101. (complete 30)
  102.  
  103. (copyfiles
  104. (prompt "Copie des scripts de création automatique")
  105. (help @copy-files-help)
  106. (source "BaseScripts")
  107. (dest (tackon target "AmiSearchII/BaseScripts"))
  108. (pattern "#?")
  109. (infos))
  110.  
  111. (copyfiles
  112. (prompt "Copie des prologues")
  113. (help @copy-files-help)
  114. (source "Prologs")
  115. (dest (tackon target "AmiSearchII/Prologs"))
  116. (pattern "#?")
  117. (infos))
  118. (if (= (exists "ENVARC:AmiSearch2.config") 1)
  119. (
  120. (copyfiles (prompt "Copie du fichier de config par défaut dans AS2:") (source "ENVARC/AmiSearch2.config") (dest (tackon target "AmiSearchII")))
  121. )
  122. (
  123. (copyfiles (prompt "Copie du fichier de config par défaut dans ENVARC:") (source "ENVARC/AmiSearch2.config") (dest "ENVARC:"))
  124. (copyfiles (prompt "Copie du fichier de config par défaut dans ENV:") (source "ENVARC/AmiSearch2.config") (dest "ENV:"))
  125. ))
  126.  
  127. (complete 40)
  128. (copyfiles (prompt "Copie localisation") (source "Locale/AmiSearch2.cd") (dest "LOCALE:"))
  129. (copyfiles (prompt "Copie localisation") (source "Locale/Catalogs/Français/AmiSearch2.catalog") (dest "LOCALE:Catalogs/Français"))
  130. (if (= (exists "MUI:Libs/MUI/NList.mcc") 0)
  131. (
  132. (copyfiles (prompt "Copie de la MUI Custom Class\n\nNList.mcc\n\n(c) Gilles Masson") (source "Libs/NList.mcc") (dest "MUI:Libs/MUI"))
  133. )
  134. (
  135. (set #nlistvo (getversion "MUI:Libs/MUI/NList.mcc"))
  136. (set #nlistvn (getversion "Libs/NList.mcc"))
  137. (if (< #nlistvo #nlistvn)
  138. (
  139. (copyfiles (prompt "Mise à jour de la MUI Custom Class\n\nNList.mcc\n\n(c) Gilles Masson") (source "Libs/NList.mcc") (dest "MUI:Libs/MUI"))
  140. ))
  141. ))
  142. (if (= (exists "MUI:Libs/MUI/NListview.mcc") 0)
  143. (
  144. (copyfiles (prompt "Copie de la MUI Custom Class\n\nNListview.mcc\n\n(c) Gilles Masson") (source "Libs/NListview.mcc") (dest "MUI:Libs/MUI"))
  145. )
  146. (
  147. (set #nlistvo (getversion "MUI:Libs/MUI/NListview.mcc"))
  148. (set #nlistvn (getversion "Libs/NListview.mcc"))
  149. (if (< #nlistvo #nlistvn)
  150. (
  151. (copyfiles (prompt "Mise à jour de la MUI Custom Class\n\nNListview.mcc\n\n(c) Gilles Masson") (source "Libs/NListview.mcc") (dest "MUI:Libs/MUI"))
  152. ))
  153. ))
  154. (if (= (exists "MUI:Libs/MUI/NListviews.mcp") 0)
  155. (
  156. (copyfiles (prompt "Copie de la MUI Custom Class\n\nNListviews.mcp\n\n(c) Gilles Masson") (source "Libs/NListviews.mcp") (dest "MUI:Libs/MUI"))
  157. )
  158. (
  159. (set #nlistvo (getversion "MUI:Libs/MUI/NListviews.mcp"))
  160. (set #nlistvn (getversion "Libs/NListviews.mcp"))
  161. (if (< #nlistvo #nlistvn)
  162. (
  163. (copyfiles (prompt "Mise à jour de la MUI Custom Class\n\nNListviews.mcp\n\n(c) Gilles Masson") (source "Libs/NListviews.mcp") (dest "MUI:Libs/MUI"))
  164. ))
  165. ))
  166.  
  167. (complete 50)
  168. (copyfiles
  169. (prompt "Copie du manuel")
  170. (help @copy-files-help)
  171. (source "Docs/Manuel_Français.guide")
  172. (dest (tackon target "AmiSearchII/Docs"))
  173. (newname "AmiSearchII.guide")
  174. (infos))
  175.  
  176. (complete 75)
  177.  
  178. (copyfiles
  179. (prompt "Copie de ReadMe.mui")
  180. (help @copy-files-help)
  181. (source "Docs/ReadMe.mui")
  182. (dest (tackon target "AmiSearchII/Docs"))
  183. (infos))
  184.  
  185. (set myassign
  186. (cat "ASSIGN AS2: \"" (tackon (expandpath target) "AmiSearchII\" DEFER")
  187. )
  188. )
  189.  
  190. (startup "AmiSearch II"
  191. (command myassign)
  192. (prompt "Ajout de l'assign dans s:user-startup")
  193. (help @startup-help)
  194. )
  195. (run myassign)
  196.  
  197. (complete 100)
  198.